home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TeX 1995 July
/
TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO
/
macros
/
latex209
/
contrib
/
nfss-addons
/
scr.sty
< prev
Wrap
Text File
|
1993-01-13
|
2KB
|
55 lines
%% scr.sty v. 1.0a 14. 1. 1993
%% Renamed from:
%% script.sty v 1.0a von J"org Knappen 11. 9. 1992
%% (c) J"org Knappen 1991, 1992, 1993 knappen@vkpmzd.kph.uni-mainz.de
%% Copying conditions: Gnu licence v 1.0
%% Created 31-jan-1992
%% Changed 11-sep-1992: Added sizes 20 and 25
%% Changed name on 14-jan-1993
%%
%% L"adt die RSFS-Zeichens"atze unter dem neuen Zeichensatzwahlschema
%% und definiert \script (als Fontschalter)
%%
%% The RSFS fonts are loaded and the following control sequences are
%% defined:
%% \script acts as a font switch, switching its argument to RSFS
\@ifundefined{extract@font}
{\errmessage{The style option `script' does not make sense if you
do not use a format with the new font selection scheme.}
\endinput}
{}
\def\RIfM@{\relax\protect\ifmmode}
\let\boxz@\fi % \if \fi matching hack
\def\boxz@{\box\z@}
\def\setboxz@h{\setbox\z@\hbox}
\def\wdz@{\wd\z@}
\def\noaccents@{\def\accentclass@{0}}
\def\Invalid@@{Invalid use of \string}
\def\nonmatherr@#1{\err@
{\string#1\space allowed only in math mode}\@ehd}
\def\err@{\@latexerr}
\newmathalphabet\script@
\addtoversion{normal}\script@{script}{m}{n}
\addtoversion{bold}\script@{script}{m}{n}
\def\pscript{\RIfM@\expandafter\script@\else
\expandafter\nonmatherr@\expandafter\script\fi}
\def\script{\protect\pscript}
\new@fontshape{script}{m}{n}{%
<5>rsfs5%
<6>rsfs5 at6pt%
<7>rsfs7%
<8>rsfs10 at8pt%
<9>rsfs10 at9pt%
<10>rsfs10%
<11>rsfs10 at10.95pt%
<12>rsfs10 at12pt%
<14>rsfs10 at14.4pt%
<17>rsfs10 at17.28pt%
<20>rsfs10 at19.71pt%
<25>rsfs10 at24.48pt%
}{}
\extra@def{script}{}{\noaccents@}
\endinput